$k="0|1";
$k=~ s/^\w\|//g;
print $k."\n";
$k="0|1";
$k=~ s/\|\w$//g;
print $k."\n";
